home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Dogs / Multimedia Dogs v2.0.iso / mac / Extras / Tests / Tests.DXR / 00001.ls next >
Encoding:
Text File  |  1995-06-10  |  1.8 KB  |  73 lines
  1. global gpTestSound1, gpTestSound2, gpTestSprite
  2.  
  3. on startMovie
  4.   clearGlobals()
  5.   initCustomButtons()
  6.   if the machineType < 256 then
  7.     set gpTestSound1 to "DogDisc:data:breeds:herding:auscdhe:auscdhe7.aif"
  8.     set gpTestSound2 to "DogDisc:data:breeds:herding:collihe:collihe7.aif"
  9.   else
  10.     set theCDvolume to findVolume("cookie68.trd")
  11.     set gpTestSound1 to theCDvolume & "\data\breeds\herding\auscdhe\auscdhe7.aif"
  12.     set gpTestSound2 to theCDvolume & "\data\breeds\herding\collihe\collihe7.aif"
  13.   end if
  14.   set gpTestSprite to 12
  15. end
  16.  
  17. on handleLinkedPICT
  18.   waitCursor()
  19.   updateStage()
  20.   puppetSprite(gpTestSprite, 1)
  21.   set the castNum of sprite gpTestSprite to the number of cast "linked.pic"
  22.   updateStage()
  23.   pointerCursor()
  24. end
  25.  
  26. on handleImportedPICT
  27.   waitCursor()
  28.   updateStage()
  29.   puppetSprite(gpTestSprite, 1)
  30.   set the castNum of sprite gpTestSprite to the number of cast "imported.pic"
  31.   updateStage()
  32.   pointerCursor()
  33. end
  34.  
  35. on handleQTWithSound
  36.   waitCursor()
  37.   puppetSprite(gpTestSprite, 1)
  38.   set the castNum of sprite gpTestSprite to the number of cast "audio.mov"
  39.   updateStage()
  40.   set the movieTime of sprite gpTestSprite to 0
  41.   set the movieRate of sprite gpTestSprite to 1
  42.   set the sound of cast the number of cast "audio.mov" to 1
  43.   pointerCursor()
  44. end
  45.  
  46. on handleQTNoSound
  47.   waitCursor()
  48.   puppetSprite(gpTestSprite, 1)
  49.   set the castNum of sprite gpTestSprite to the number of cast "noaudio.mov"
  50.   updateStage()
  51.   set the movieTime of sprite gpTestSprite to 0
  52.   set the movieRate of sprite gpTestSprite to 1
  53.   pointerCursor()
  54. end
  55.  
  56. on handleSoundChannel1
  57.   waitCursor()
  58.   sound playFile 1, gpTestSound1
  59.   pointerCursor()
  60. end
  61.  
  62. on handleSoundChannel2
  63.   waitCursor()
  64.   sound playFile 2, gpTestSound2
  65.   pointerCursor()
  66. end
  67.  
  68. on handlePuppetSound
  69.   waitCursor()
  70.   puppetSound("import.aif")
  71.   pointerCursor()
  72. end
  73.